10 POKE53280,0:POKE53281,0 15 IFF1=1THEN35 16 IFF1=2THEN40 18 IFF1=3THEN45 19 IFF1=4THEN50 20 PRINT"[147]":GOSUB800 30 F1=1:LOAD"STAR TREK ML 1.D",8,1 35 F1=2:LOAD"STAR TREK ML 2.D",8,1 40 F1=3:LOAD"STAR TREK ML 3.D",8,1 45 F1=4:LOAD"STAR TREK ML 4.D",8,1 50 PRINT"[144]LOAD"CHR$(34)"STAR TREK V1.D"CHR$(34)",8" 60 POKE198,6 70 DATA19,13,82,85,78,13 80 FORI=1TO6:READX:POKE630+I,X:NEXT 100 POKE44,24:POKE24*256,0 200 NEW 800 PRINT"";:FORY=0TO22:X%=RND(1)*38:PRINTTAB(X%)".":NEXT 900 PRINT"[146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 995 PRINT"[206] [206][205][206] [206][165][206] [206][205][206] [206][205]" 1000 PRINT"[169] [223][146][206][165] [146][206][169] [223][146][206][165] [223][146][206][165] 1010 [153]" WAITTHEN WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT FN 1020 PRINT" [146][206][163][163][206][205] [146][167] [146][206][163][163] [146] [165] [146][206][163][163] [146][206] 1030 [153]"(null) (null)WAIT(null)FN WAITTHEN WAIT FN WAITSTEPFN 1040 PRINT" [206][206][165] [146] [165] [146][167] [146][167] [146] [165] [146][167] [146] [165] 1050 [153]" WAIT(null)TAB(TAB( WAIT(null) WAITTHEN WAITTHEN WAIT FN WAITTHEN WAIT(null)(null) 1060 PRINT"[223] [146][169] [146][206] [146][206] [146][206] [146][206] [223][146][206] 1065 [153]"WRITTEN & DONATED TO TPUG BY DAVID NEALE"; 1070 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 1080 PRINT"[206] [206][165][206] [206][205][206] [206][165][206][206][165][206][206][165] 1100 [153]" WAIT(null) (null)WAIT(null)FN WAIT(null) WAIT FN WAIT(null) 1110 PRINT" [146][167] [146][167] [146] [165] [146][167][164][164] [146] [204][169][146][169] 1120 [153]" WAITTHEN WAIT(null)TAB(TAB( WAIT(null)  WAIT(null) (null)FN WAIT(null)STEPWAITSTEPFN 1130 PRINT" [146][167] [146][169][165] [146][206] [146][206][205] 1140 [153]" WAITTHEN WAITTHEN WAIT FN WAITTHENTOTOTOTO WAITTHEN(null)(null)WAIT (null) 1150 PRINT" [146][167] [146][167] [146][206][205] [146][206] [206][165] [146][167][223][223][146][206][165] 1160 [153]" WAIT(null) WAIT(null) (null)WAIT(null) WAIT(null) WAIT(null) WAIT(null) 2000 RETURN